library(foreign)

#laptop
setwd("/Users/joelsievert/Dropbox/Research/Legislative Responsiveness/National Road/data/PRQ Replication")


#votes to extent the road
h21 <- read.csv("h21_extend.csv")
h23 <- read.csv("h23_extend.csv")


table(h21$rc_natl)
table(h21$rc_mays)
table(h23$rc)


#votes to retain federal control
h17 <- read.csv("h17_transfer.csv")
h20 <- read.csv("h20_transfer.csv")
h23_b <- read.csv("h23_transfer.csv")


table(h17$rc)
table(h20$rc)
table(h23_b$rc)

